Begin
if GetInt('Hero.Dungeon') = 1 then
begin
  SetInt('Hero.Dungeon', GetInt('Hero.PortalsTo'));
  SetInt('Hero.PortalsTo', 1);  
end
else 
begin
  SetInt('Hero.PortalsTo', GetInt('Hero.Dungeon'));
  SetInt('Hero.Dungeon', 1);
end;
Play(16);
Run('Load.pas');
end